home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1996 June / EnigmA AMIGA RUN 08 (1996)(G.R. Edizioni)(IT)[!][issue 1996-06][EARSAN CD VII].iso / lettori / frphix11.lha / Fraphix_Installer < prev    next >
Text File  |  1996-02-18  |  3KB  |  138 lines
  1. ; FraphiX Installer Utility
  2. ;
  3. ; only for FraphiX V1.0 (Rev.129)
  4. ;
  5. ;Written by Francesco De Napoli
  6. ; Copyright © 1990-96 SoftwareZok 87
  7.  
  8.  
  9. ; Qui sotto son definite le variabili conteneti le frasi da stampare
  10. ; durante l'esecuzione del file script. Bisogna fare in modo che se la
  11. ; macchina non abbia l'Italiano, le frasi siano in Inglese.
  12.  
  13. (set nomedisco "Distribuito_ZOK:")
  14.  
  15. (set frase1
  16.        (cat   "In quale directory preferisci INSTALLARE il programma"
  17.               "FraphiX V1.0 (Shareware)\n"
  18.               "Sarà creata una directory \"FRAPHIX\""
  19.        )
  20. )
  21.  
  22. (set frase2
  23.        (cat "Attendere!\nSto creando la directory \""
  24.              nome-dir
  25.              "Fraphix\""
  26.        )
  27. )
  28.  
  29. (set frase3
  30.        (cat "\n\nAttendere!\n\nSto copiando tutti i files "
  31.             "necessari nella directory \""
  32.              "Fraphix\""
  33.        )
  34. )
  35. (set frase4
  36.        (cat   "Seleziona quale directory deve "
  37.               "divenire la zona di transito dei dati "
  38.               "per il programma \"FraphiX V1.0 (SHAREWARE)\""
  39.               "\nSarà creata la directory \"STORE\""
  40.        )
  41. )
  42.  
  43. (set frase5 "Installando il programma...")
  44. (set frase6 "Installando il manuale...")
  45. (set frase7 "Installando le immagini...")
  46. (set frase8 "Installando gli extra...")
  47.  
  48. ; Qui comincia l'esecuzione dello script vero e proprio.
  49.  
  50. (set nome-dir
  51.        (askdir
  52.               (prompt frase1)
  53.               (help @askdir-help)
  54.               (default "Work:")
  55.        )
  56. )
  57.  
  58. (set @default-dest nome-dir)
  59.  
  60.  
  61.  
  62.  
  63.  
  64.  
  65. ;-------------------
  66. ; Copia LHEX to RAM: per velocizzare
  67. (set sorgente
  68.         (cat  nomedisco "c/")
  69. )
  70.    (copyfiles
  71.       (prompt "")
  72.       (help "")
  73.       (source sorgente)
  74.       (dest "RAM:")
  75.       (choices "lhex")
  76.    )
  77. (set sorgente (cat nomedisco "libs/"))
  78. (if (= 0 (exists "Sys:Libs/amos.library"))
  79.       
  80.        (copyfiles
  81.               (prompt "")
  82.               (help @copylib-help)
  83.               (source sorgente)
  84.               (dest "Sys:LIBS")
  85.               (choices "amos.library")
  86.        )
  87. )
  88. (working frase5)
  89. (set nome-dir (cat nome-dir "FraphiX"))
  90. (makedir nome-dir (infos))
  91. (run ("RAM:lhex >CON:0/0//60/lhex/AUTO -a -f \"-w=%s\" x %sFraphix_Main.lha" nome-dir nomedisco))
  92.  
  93. (working frase6)
  94. (run ("RAM:lhex >CON:0/0//60/lhex/AUTO -a -f \"-w=%s\" x %sFraphix_Docs.lha" nome-dir nomedisco))
  95.  
  96. (working frase7)
  97. (run ("RAM:lhex >CON:0/0//60/lhex/AUTO -a -f \"-w=%s\" x %sFraphix_PIC.lha" nome-dir nomedisco))
  98.  
  99. (working frase8)
  100. (run ("RAM:lhex >CON:0/0//60/lhex/AUTO -a -f \"-w=%s\" x %sFraphix_Extra.lha" nome-dir nomedisco))
  101.  
  102. (if (exists (tackon nomedisco "buildanim.lha"))
  103.     (
  104.     (working "Installando Buildanim...")
  105.     (run ("RAM:lhex >CON:0/0//60/lhex/AUTO -a -f \"-w=%s\" x %sBuildanim.lha" nome-dir nomedisco))
  106.     )
  107. )
  108.  
  109. (run ('%sc/Cambiastringa \"%sDOCS/Modulo_Registrazione\"  @#§ ZOK' nomedisco nome-dir))
  110. (run ('%sc/Cambiastringa \"%sDOCS/Registration_Form\"  @#§ ZOK' nomedisco nome-dir))
  111.  
  112. ; Seleziona dove posizionare la zona di transito dei dati!
  113. (set nome (cat nome-dir "Fraphix"))
  114.  
  115. (set store-dir
  116.        (askdir
  117.               (prompt frase4)
  118.               (help @askdir-help)
  119.               (default nome)
  120.        )
  121. )
  122. (set comando
  123.        (cat   "assign Fraphix_Store: "
  124.               store-dir
  125.               "\n")
  126. )
  127. (set frase5
  128.        (cat
  129.                "\n\nATTENZIONE!\n\nAggiungo alcune informazioni vitali "
  130.                "al file \"S:User-Startup\"\n")
  131. )
  132.  
  133. (startup "FraphiX"
  134.        (prompt frase5)
  135.        (help "SPIACENTE!\n\nNessuna spiegazione!!!")
  136.        (command comando)
  137. )
  138.